home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / share / groff / 1.19.1 / tmac / pspic.tmac < prev    next >
Encoding:
Text File  |  2005-10-13  |  2.7 KB  |  107 lines
  1. .\" pspic.tmac
  2. .\"
  3. .\" Define the PSPIC macro.
  4. .\"
  5. .\" When used other than with -Tps, -Tdvi, or -Thtml it will draw a box
  6. .\" around where the picture would go.
  7. .
  8. .de PSPIC
  9. .  nr ps-offset-mode 0
  10. .  ie '\\$1'-L' \{\
  11. .    nr ps-offset-mode 1
  12. .    shift
  13. .    HTML-DO-IMAGE \\$1 l
  14. .  \}
  15. .  el \{\
  16. .    ie '\\$1'-R' \{\
  17. .      nr ps-offset-mode 2
  18. .      shift
  19. .      HTML-DO-IMAGE \\$1 r
  20. .    \}
  21. .    el \{\
  22. .      ie '\\$1'-I' \{\
  23. .        nr ps-offset-mode 3
  24. .        nr ps-offset (m;\\$2)
  25. .        shift 2
  26. .        HTML-DO-IMAGE \\$1 i
  27. .      \}
  28. .      el \
  29. .        HTML-DO-IMAGE \\$1 c
  30. .    \}
  31. .  \}
  32. .
  33. .  br
  34. .
  35. .  psbb \\$1
  36. .  if (\\n[llx] : \\n[lly] : \\n[urx] : \\n[ury]) \{\
  37. .    nr ps-wid (\\n[urx] - \\n[llx])
  38. .    nr ps-ht (\\n[ury] - \\n[lly])
  39. .    if (\\n[ps-wid] < 0) \
  40. .      nr ps-wid (-\\n[ps-wid])
  41. .    if (\\n[ps-ht] < 0) \
  42. .      nr ps-ht (-\\n[ps-ht])
  43. .    ie (\\n[.$] >= 2) \
  44. .      nr ps-deswid (i;\\$2)
  45. .    el \
  46. .      nr ps-deswid ((\\n[.l] - \\n[.i]) <? \\n[ps-wid]p)
  47. .    nr ps-desht (\\n[ps-deswid] * 1000 + (\\n[ps-wid] / 2) \
  48.                   / \\n[ps-wid] * \\n[ps-ht] \
  49.                   + 500 / 1000)
  50. .    if ((\\n[.$] >= 3) & (\\n[ps-desht] > (i;0\\$3))) \{\
  51. .      nr ps-desht (i;\\$3)
  52. .      nr ps-deswid (\\n[ps-desht] * 1000 + (\\n[ps-ht] / 2) \
  53.                      / \\n[ps-ht] * \\n[ps-wid] \
  54.                      + 500 / 1000)
  55. .    \}
  56. .
  57. .    ne (\\n[ps-desht]u + 1v)
  58. .
  59. .    if (\\n[ps-offset-mode] == 0) \
  60. .      nr ps-offset (\\n[.l] - \\n[.i] - \\n[ps-deswid] / 2)
  61. .    if (\\n[ps-offset-mode] == 1) \
  62. .      nr ps-offset 0
  63. .    if (\\n[ps-offset-mode] == 2) \
  64. .      nr ps-offset (\\n[.l] - \\n[.i] - \\n[ps-deswid])
  65. .
  66. .    ie '\*[.T]'dvi' \{\
  67. .      ie (\\n[ps-wid]p == \\n[ps-deswid]) \{\
  68. .        ds ps-scale \" empty
  69. .        ds ps-hoffset hoffset=-\\n[llx]
  70. .        ds ps-voffset voffset=-\\n[lly]
  71. .      \}
  72. .      el \{\
  73. .        nr ps-scale (\\n[ps-deswid] * 100 / \\n[ps-wid]p)
  74. .        nr ps-hoffset (-\\n[llx] * \\n[ps-scale] / 100)
  75. .        nr ps-voffset (-\\n[lly] * \\n[ps-scale] / 100)
  76. .        ds ps-scale hscale=\\n[ps-scale] vscale=\\n[ps-scale]
  77. .        ds ps-hoffset hoffset=\\n[ps-hoffset]
  78. .        ds ps-voffset voffset=\\n[ps-voffset]
  79. .      \}
  80. .
  81. \h'\\n[ps-offset]u'\
  82. \v'\\n[ps-desht]u'\
  83. \X'psfile=\\$1 \\*[ps-hoffset] \\*[ps-voffset] \\*[ps-scale]'
  84. .    \}
  85. .    el \{\
  86. .      ie (\\n[.$] >= 3) \
  87. .        ds ps-desht \\n[ps-desht]
  88. .      el \
  89. .        ds ps-desht \" empty
  90. .
  91. \h'\\n[ps-offset]u'\
  92. \X'ps: invis'\
  93. \Z'\D'p 0 \\n[ps-desht]u \\n[ps-deswid]u 0 0 -\\n[ps-desht]u''\
  94. \X'ps: endinvis'\
  95. \v'\\n[ps-desht]u'\
  96. \X'ps: import \
  97.        \\$1 \\n[llx] \\n[lly] \\n[urx] \\n[ury] \\n[ps-deswid] \\*[ps-desht]'
  98. .    \}
  99. .
  100. .    br
  101. .    sp \\n[ps-desht]u
  102. .  \}
  103. .  HTML-IMAGE-END
  104. ..
  105. .
  106. .\" end of pspic.tmac
  107.